home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / presto / presto10.lha / Manual / psdef.sty < prev    next >
Text File  |  1991-12-11  |  12KB  |  245 lines
  1.  
  2. %% Font stuff for lots of PostScript fonts, 
  3. %%     with Times-Roman as the main family
  4. %% Paul Davis <davis%scr@sdr.slb.com> January 1989
  5.  
  6. %% This file makes a number of extra font switches available:
  7. %% This borrowed from the file palatino.sty, obtained from Sebastian Rahtz,
  8. %% (actual author unknown).
  9.  
  10. \def\@@getfont#1#2#3#4#5#6#7{%
  11. \@ifundefined{\string #1\string #5}{\global\expandafter
  12.     \font \csname \string #1\string #5\endcsname #4\@ptscale{#5}\relax}{}%
  13. \@ifundefined{\string #1\string #6}{\global\expandafter
  14.     \font \csname \string #1\string #6\endcsname #4\@ptscale{#6}\relax}{}%
  15. \@ifundefined{\string #1\string #7}{\global\expandafter
  16.     \font \csname \string #1\string #7\endcsname #4\@ptscale{#7}\relax}{}%
  17. \@ifundefined{\string #1\string #3}{\global\expandafter
  18.     \let \csname \string #1\string #3\endcsname #3\relax 
  19.      \@addfontinfo#3{\textfont #2\csname \string #1\string #5\endcsname 
  20.      \scriptfont #2\csname \string #1\string #6\endcsname 
  21.      \scriptscriptfont #2\csname \string #1\string #7\endcsname 
  22.      \def#1{\fam #2\csname\string #1\string #5\endcsname}}}{}#3#1}
  23. \def\@@@getfont#1#2#3#4#5{%
  24. \@ifundefined{\string #1\string #5}{\global\expandafter
  25.     \font \csname \string #1\string #5\endcsname #4\@ptscale{#5}\relax}{}%
  26. \@ifundefined{\string #1\string #3}{\global\expandafter
  27.     \let \csname \string #1\string #3\endcsname #3\relax 
  28.      \@addfontinfo#3{\def#1{\fam #2\csname\string #1\string #5\endcsname}}}{}#3#1}
  29.  
  30. %% note the added new font specs (\pho, \phb, \ptb etc.) for
  31. %% extra fonts needed.
  32.  
  33. \def\@psfonts#1#2#3#4{%
  34. \def\prm{\@@@getfont\prm\z@#1\@mrm{#2}}%
  35. \def\pit{\@@getfont\pit\itfam#1\@mit{#2}{#3}{#4}}%
  36. \def\pbi{\@@getfont\pbi\itfam#1\@mbi{#2}{#3}{#4}}%
  37. \def\pbo{\@@getfont\pbo\bffam#1\@mbo{#2}{#3}{#4}}%
  38. \def\psl{\@@getfont\psl\slfam#1\@msl{#2}{#3}{#4}}%
  39. \def\pbf{\@@getfont\pbf\bffam#1\@mbf{#2}{#3}{#4}}%
  40. \def\ptt{\@@getfont\ptt\ttfam#1\@mtt{#2}{#3}{#4}%
  41. \@nohyphens\ptt {#2}\@nohyphens\ptt {#3}\@nohyphens\ptt {#4}}%
  42. \def\psf{\@@getfont\psf\sffam#1\@mss{#2}{#3}{#4}}%
  43. \def\psc{\@@getfont\psc\scfam#1\@mcsc{#2}{#3}{#4}}%
  44. \def\pho{\@@getfont\pho\sffam#1\@hob{#2}{#3}{#4}}%
  45. \def\phb{\@@getfont\phb\bffam#1\@hbf{#2}{#3}{#4}}%
  46. \def\ptb{\@@getfont\ptb\bffam#1\@mtb{#2}{#3}{#4}}}%
  47.  
  48. %% define new font switch for extra fonts
  49.  
  50. \def\ho{\protect\pho}%     helvetica oblique
  51. \def\hb{\protect\phb}%     helvetica bold
  52. \def\tb{\protect\ptb}%  courier ("typewriter") bold
  53. \def\bi{\protect\pbi}%  times bold italic
  54. \def\bo{\protect\pbo}%    times bold oblique
  55.  
  56. \def\vpt{\textfont\z@\fivrm 
  57.   \scriptfont\z@\fivrm \scriptscriptfont\z@\fivrm
  58. \textfont\@ne\fivmi \scriptfont\@ne\fivmi \scriptscriptfont\@ne\fivmi
  59. \textfont\tw@\fivsy \scriptfont\tw@\fivsy \scriptscriptfont\tw@\fivsy
  60. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  61. \def\unboldmath{\everymath{}\everydisplay{}\@nomath
  62.   \unboldmath\fam\@ne\@boldfalse}\@boldfalse
  63. \def\boldmath{\@subfont\boldmath\unboldmath}%
  64. \@psfonts\@vpt555%
  65. \def\ly{\fam\lyfam\fivly}\textfont\lyfam\fivly 
  66.     \scriptfont\lyfam\fivly \scriptscriptfont\lyfam\fivly 
  67. \@setstrut\rm}
  68. \def\@vpt{}
  69. \def\vipt{\textfont\z@\sixrm 
  70.   \scriptfont\z@\sixrm \scriptscriptfont\z@\sixrm
  71. \textfont\@ne\sixmi \scriptfont\@ne\sixmi \scriptscriptfont\@ne\sixmi
  72. \textfont\tw@\sixsy \scriptfont\tw@\sixsy \scriptscriptfont\tw@\sixsy
  73. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  74. \def\unboldmath{\everymath{}\everydisplay{}\@nomath
  75.   \unboldmath\@boldfalse}\@boldfalse
  76. \def\boldmath{\@subfont\boldmath\unboldmath}%
  77. \@psfonts\@vipt666
  78. \def\ly{\fam\lyfam\sixly}\textfont\lyfam\sixly 
  79.     \scriptfont\lyfam\sixly \scriptscriptfont\lyfam\sixly 
  80. \@setstrut\rm}
  81. \def\@vipt{}
  82. \def\viipt{\textfont\z@\sevrm 
  83.   \scriptfont\z@\sixrm \scriptscriptfont\z@\fivrm
  84. \textfont\@ne\sevmi \scriptfont\@ne\fivmi \scriptscriptfont\@ne\fivmi
  85. \textfont\tw@\sevsy \scriptfont\tw@\fivsy \scriptscriptfont\tw@\fivsy
  86. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  87. \def\unboldmath{\everymath{}\everydisplay{}\@nomath
  88. \unboldmath\@boldfalse}\@boldfalse
  89. \def\boldmath{\@subfont\boldmath\unboldmath}%
  90. \@psfonts\@viipt755%
  91. \def\ly{\fam\lyfam\sevly}\textfont\lyfam\sevly 
  92.     \scriptfont\lyfam\fivly \scriptscriptfont\lyfam\fivly 
  93. \@setstrut \rm}
  94. \def\@viipt{}
  95. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  96. \def\viiipt{\textfont\z@\egtrm 
  97.   \scriptfont\z@\sixrm \scriptscriptfont\z@\fivrm
  98. \textfont\@ne\egtmi \scriptfont\@ne\sixmi \scriptscriptfont\@ne\fivmi
  99. \textfont\tw@\egtsy \scriptfont\tw@\sixsy \scriptscriptfont\tw@\fivsy
  100. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  101. \def\unboldmath{\everymath{}\everydisplay{}\@nomath
  102. \unboldmath\@boldfalse}\@boldfalse
  103. \def\boldmath{\@subfont\boldmath\unboldmath}%
  104. \@psfonts\@viiipt865%
  105. \def\ly{\fam\lyfam\egtly}\textfont\lyfam\egtly 
  106.     \scriptfont\lyfam\sixly \scriptscriptfont\lyfam\fivly 
  107. \@setstrut \rm}
  108. \def\@viiipt{}
  109. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  110. \def\ixpt{\textfont\z@\ninrm 
  111.   \scriptfont\z@\sixrm \scriptscriptfont\z@\fivrm
  112. \textfont\@ne\ninmi \scriptfont\@ne\sixmi \scriptscriptfont\@ne\fivmi
  113. \textfont\tw@\ninsy \scriptfont\tw@\sixsy \scriptscriptfont\tw@\fivsy
  114. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  115. \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
  116.     \@boldfalse}\@boldfalse
  117. \def\boldmath{\@subfont\boldmath\unboldmath}%
  118. \@psfonts\@ixpt965%
  119. \def\ly{\fam\lyfam\ninly}\textfont\lyfam\ninly 
  120.    \scriptfont\lyfam\sixly \scriptscriptfont\lyfam\fivly 
  121. \@setstrut \rm}
  122. \def\@ixpt{}
  123. \def\xpt{\textfont\z@\tenrm 
  124.   \scriptfont\z@\sevrm \scriptscriptfont\z@\fivrm
  125. \textfont\@ne\tenmi \scriptfont\@ne\sevmi \scriptscriptfont\@ne\fivmi
  126. \textfont\tw@\tensy \scriptfont\tw@\sevsy \scriptscriptfont\tw@\fivsy
  127. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  128. \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
  129.           \textfont\@ne\tenmi 
  130.           \textfont\tw@\tensy \textfont\lyfam\tenly
  131.           \@boldfalse}\@boldfalse
  132. \def\boldmath{\@ifundefined{tenmib}{\global\font\tenmib\@mbi 
  133.    \global\font\tensyb\@mbsy 
  134.    \global\font\tenlyb\@lasyb\relax\@addfontinfo\@xpt
  135.    {\def\boldmath{\everymath{\mit}\everydisplay{\mit}\@prtct\@nomathbold
  136.         \textfont\@ne\tenmib \textfont\tw@\tensyb 
  137.         \textfont\lyfam\tenlyb \@prtct\@boldtrue}}}{}\@xpt\boldmath}%
  138. \@psfonts\@xpt{10}75%
  139. \def\ly{\fam\lyfam\tenly}\textfont\lyfam\tenly 
  140.    \scriptfont\lyfam\sevly \scriptscriptfont\lyfam\fivly 
  141. \@setstrut \rm}
  142. \def\@xpt{}
  143. \def\xipt{\textfont\z@\elvrm 
  144.   \scriptfont\z@\egtrm \scriptscriptfont\z@\sixrm
  145. \textfont\@ne\elvmi \scriptfont\@ne\egtmi \scriptscriptfont\@ne\sixmi
  146. \textfont\tw@\elvsy \scriptfont\tw@\egtsy \scriptscriptfont\tw@\sixsy
  147. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  148. \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
  149.           \textfont\@ne\elvmi \textfont\tw@\elvsy 
  150.           \textfont\lyfam\elvly \@boldfalse}\@boldfalse
  151. \def\boldmath{\@ifundefined{elvmib}{\global\font\elvmib\@mbi\@halfmag 
  152.          \global\font\elvsyb\@mbsy\@halfmag
  153.          \global\font\elvlyb\@lasyb\@halfmag\relax\@addfontinfo\@xipt
  154.          {\def\boldmath{\everymath{\mit}\everydisplay{\mit}\@prtct\@nomathbold
  155.                 \textfont\@ne\elvmib \textfont\tw@\elvsyb 
  156.                 \textfont\lyfam\elvlyb\@prtct\@boldtrue}}}{}\@xipt\boldmath}%
  157. \@psfonts\@xipt{11}86%
  158. \def\ly{\fam\lyfam\elvly}\textfont\lyfam\elvly 
  159.    \scriptfont\lyfam\egtly \scriptscriptfont\lyfam\sixly 
  160. \@setstrut \rm}
  161. \def\@xipt{}
  162. \def\xiipt{\textfont\z@\twlrm 
  163.   \scriptfont\z@\egtrm \scriptscriptfont\z@\sixrm
  164. \textfont\@ne\twlmi \scriptfont\@ne\egtmi \scriptscriptfont\@ne\sixmi
  165. \textfont\tw@\twlsy \scriptfont\tw@\egtsy \scriptscriptfont\tw@\sixsy
  166. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  167. \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
  168.           \textfont\@ne\twlmi 
  169.           \textfont\tw@\twlsy \textfont\lyfam\twlly
  170.           \@boldfalse}\@boldfalse
  171. \def\boldmath{\@ifundefined{twlmib}{\global\font\twlmib\@mbi\@magscale1\global
  172.         \font\twlsyb\@mbsy \@magscale1\global\font
  173.          \twllyb\@lasyb\@magscale1\relax\@addfontinfo\@xiipt
  174.               {\def\boldmath{\everymath
  175.                 {\mit}\everydisplay{\mit}\@prtct\@nomathbold
  176.                 \textfont\@ne\twlmib \textfont\tw@\twlsyb 
  177.                 \textfont\lyfam\twllyb\@prtct\@boldtrue}}}{}\@xiipt\boldmath}%
  178. \@psfonts\@xiipt{12}86%
  179. \def\ly{\fam\lyfam\twlly}\textfont\lyfam\twlly 
  180.    \scriptfont\lyfam\egtly \scriptscriptfont\lyfam\sixly
  181.  \@setstrut \rm}
  182. \def\@xiipt{}
  183. \def\xivpt{\textfont\z@\frtnrm 
  184.   \scriptfont\z@\tenrm \scriptscriptfont\z@\sevrm
  185. \textfont\@ne\frtnmi \scriptfont\@ne\tenmi \scriptscriptfont\@ne\sevmi
  186. \textfont\tw@\frtnsy \scriptfont\tw@\tensy \scriptscriptfont\tw@\sevsy
  187. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  188. \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath 
  189.           \textfont\@ne\frtnmi \textfont\tw@\frtnsy 
  190.           \textfont\lyfam\frtnly \@boldfalse}\@boldfalse
  191. \def\boldmath{\@ifundefined{frtnmib}{\global\font
  192.         \frtnmib\@mbi\@magscale2\global\font\frtnsyb\@mbsy\@magscale2
  193.          \global\font\frtnlyb\@lasyb\@magscale2\relax\@addfontinfo\@xivpt
  194.                {\def\boldmath{\everymath
  195.                 {\mit}\everydisplay{\mit}\@prtct\@nomathbold
  196.               \textfont\@ne\frtnmib \textfont\tw@\frtnsyb 
  197.               \textfont\lyfam\frtnlyb\@prtct\@boldtrue}}}{}\@xivpt\boldmath}%
  198. \@psfonts\@xivpt{14}{10}7%
  199. \def\ly{\fam\lyfam\frtnly}\textfont\lyfam\frtnly 
  200.    \scriptfont\lyfam\tenly \scriptscriptfont\lyfam\sevly 
  201. \@setstrut \rm}
  202. \def\@xivpt{}
  203. \def\xviipt{\textfont\z@\svtnrm 
  204.   \scriptfont\z@\twlrm \scriptscriptfont\z@\tenrm
  205. \textfont\@ne\svtnmi \scriptfont\@ne\twlmi \scriptscriptfont\@ne\tenmi
  206. \textfont\tw@\svtnsy \scriptfont\tw@\twlsy \scriptscriptfont\tw@\tensy
  207. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  208. \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
  209.           \textfont\@ne\svtnmi \textfont\tw@\svtnsy \textfont\lyfam\svtnly
  210.           \@boldfalse}\@boldfalse
  211. \def\boldmath{\@subfont\boldmath\unboldmath}%
  212. \@psfonts\@xviipt{17}{12}{10}%
  213. \def\ly{\fam\lyfam\svtnly}\textfont\lyfam\svtnly 
  214.    \scriptfont\lyfam\twlly   \scriptscriptfont\lyfam\tenly
  215. \@setstrut \rm}
  216. \def\@xviipt{}
  217. \def\xxpt{\textfont\z@\twtyrm 
  218.   \scriptfont\z@\frtnrm \scriptscriptfont\z@\twlrm
  219. \textfont\@ne\twtymi \scriptfont\@ne\frtnmi \scriptscriptfont\@ne\twlmi
  220. \textfont\tw@\twtysy \scriptfont\tw@\frtnsy \scriptscriptfont\tw@\twlsy
  221. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  222. \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
  223.         \textfont\@ne\twtymi \textfont\tw@\twtysy \textfont\lyfam\twtyly
  224.         \@boldfalse}\@boldfalse
  225. \def\boldmath{\@subfont\boldmath\unboldmath}%
  226. \@psfonts\@xxpt{20}{14}{12}%
  227. \def\ly{\fam\lyfam\twtyly}\textfont\lyfam\twtyly 
  228.    \scriptfont\lyfam\frtnly \scriptscriptfont\lyfam\twlly 
  229. \@setstrut \rm}
  230. \def\@xxpt{}
  231. \def\xxvpt{\textfont\z@\twfvrm 
  232.   \scriptfont\z@\twtyrm \scriptscriptfont\z@\svtnrm
  233. \textfont\@ne\twtymi \scriptfont\@ne\twtymi \scriptscriptfont\@ne\svtnmi
  234. \textfont\tw@\twtysy \scriptfont\tw@\twtysy \scriptscriptfont\tw@\svtnsy
  235. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  236. \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
  237.         \textfont\@ne\twtymi \textfont\tw@\twtysy \textfont\lyfam\twtyly
  238.         \@boldfalse}\@boldfalse
  239. \def\boldmath{\@subfont\boldmath\unboldmath}%
  240. \@psfonts\@xxvpt{25}{20}{17}%
  241. \def\ly{\fam\lyfam\twtyly}\textfont\lyfam\twtyly 
  242.    \scriptfont\lyfam\twtyly \scriptscriptfont\lyfam\svtnly 
  243. \@setstrut \rm}
  244. \def\@xxvpt{}
  245.